Chip 1997 December/CHIPNET Aralık 1997.iso/oyun/elf.exe/ELF.EXE/0/RCDATA/TCOMMANDWIZARD/TCOMMANDWIZARD.txt

Text File | 1997-02-13 | 11KB | 483 lines

object CommandWizard: TCommandWizard
  Left = 246
  Top = 108
  BorderStyle = bsDialog
  Caption = 'Command Wizard'
  ClientHeight = 290
  ClientWidth = 493
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 4
    Top = 8
    Width = 47
    Height = 13
    Caption = 'Command'
  end
  object Bevel1: TBevel
    Left = 160
    Top = 8
    Width = 5
    Height = 277
    Shape = bsLeftLine
  end
  object Info1: TLabel
    Left = 172
    Top = 172
    Width = 65
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Info1'
    Visible = False
  end
  object Info2: TLabel
    Left = 172
    Top = 196
    Width = 65
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Info2'
    Visible = False
  end
  object Info3: TLabel
    Left = 172
    Top = 220
    Width = 65
    Height = 13
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'Info3'
    Visible = False
  end
  object Comms: TOutline
    Left = 12
    Top = 24
    Width = 141
    Height = 257
    Lines.Nodes = (
      'File handling'
      #9'@FCL'
      #9'@FWR'
      'Flow control'
      #9'@CALL'
      #9'@IF'
      #9'@QUEUE'
      #9'@SKIP'
      #9'@WHILE'
      'Group handling'
      #9'@ADDGROUP'
      #9'@CLEARGROUP'
      #9'@EDITGROUP'
      #9'@REMGROUP'
      'Miscellaneous'
      #9'@ASSIGN'
      #9'@CONNECT'
      #9'@DISCONNECT'
      #9'@FWRITE'
      #9'@LOG'
      #9'@NEWLINE'
      #9'@NLOCAL'
      #9'@REM'
      #9'@SEND'
      #9'@SLOCAL'
      'Sounds and output'
      #9'@BEEP'
      #9'@OUTMSG'
      #9'@OUTSTR'
      #9'@TOCLIP'
      'User windows'
      #9'@WADD'
      #9'@WCLEAR'
      #9'@WCLOSE'
      #9'@WHIDE'
      #9'@WPUT'
      #9'@WSHOW')
    OutlineStyle = osText
    Options = [ooDrawFocusRect]
    ItemHeight = 13
    TabOrder = 0
    OnClick = CommsClick
    ItemSeparator = '\'
  end
  object Memo1: TMemo
    Left = 64
    Top = 4
    Width = 61
    Height = 17
    Lines.Strings = (
      'SYNTAX:'
      '<command-name>'
      'number of parameters'
      'parameter-type space parameter-name'
      '...'
      '...'
      'number of lines for the command'
      'command lines   (parameters are inserted at #1#)'
      '...'
      '...'
      'description'
      ''
      'PARAMETERS:'

        '- <NAME> <type>           type : - n : single number   can'#39't be ' +
        'blank'

        '                                 - t : single text     can be bl' +
        'ank'

        '                                 - v : variable        can'#39't be ' +
        'blank'

        '                                 - e : expression      can'#39't be ' +
        'blank'
      '<@CONNECT>'
      '1'
      't Mud name'
      '1'
      '@CONNECT #1#'

        '@CONNECT <name> attempts to connect to the specified MUD. <Mud n' +
        'ame> is a string containing the name of one of the MUDs known to' +
        ' ELF in the connection dialog.'

        'When the connection is established, the alias OnConnect is calle' +
        'd.'
      '<@DISCONNECT>'
      '0'
      '1'
      '@DISCONNECT'

        '@DISCONNECT closes the connection to the current MUD. If no MUD ' +
        'is connected, nothing happens.'

        'When disconnection has taken place, the alias OnDisconnect is ca' +
        'lled.'
      '<@QUEUE>'
      '2'
      'n Delay (sec)'
      'e Commands'
      '1'
      '@QUEUE #1#'
      'Executes the specified sequence of commands after DELAY seconds.'
      '<@TICKNOW>'
      '0'
      '1'
      '@TICKNOW'
      'Forces ELF to recognise tick.'
      '<@REM>'
      '1'
      'e Comment'
      '1'
      '@REM #1#'

        'Used for writing a comment (REMark) in a sequence of commands. T' +
        'he rest of the line is ignored.'
      '<@ASSIGN>'
      '2'
      't Variable name'
      'e Expression'
      '1'
      '@ASSIGN #1#'

        'Assigns <expression> to the specified <variable>. The expression' +
        ' must be either string or numeric depending on the type of the s' +
        'pecified variable.'
      '<@FCL>'
      '1'
      'n Id'
      '1'
      '@FCL #1#'
      'Closes the file identified by id.'
      '<@FWR>'
      '2'
      'n Id'
      't Text'
      '1'
      '@FWR #1#'
      'Writes text in the file identified by id.'
      '<@CALL>'
      '1'
      'v Variable'
      '1'
      '@CALL #1#'

        'Executes the commands contained in the referenced variable. Comm' +
        'ands may be separated with #13 or with '#39'^'#39'.'

        'This command is very useful to define sequences of commands that' +
        ' can change at run-time.'
      '<@IF>'
      '1'
      'e Expression'
      '1'
      '@IF #1#'

        'Apprises the following numerical expression. If its value equals' +
        ' 0, then the subsequent two commands will be skipped.'
      '<@SKIP>'
      '1'
      'n To be skipped'
      '1'
      '@SKIP #1#'
      'Causes the next n commands to be skipped (not executed).'
      '<@WHILE>'
      '1'
      'e Test condition'
      '2'
      '@WHILE #1#'
      '@ENDW'

        'The @WHILE meta-command is paired by @ENDW. It is useful to crea' +
        'te a loop.'
      '@WHILE loops CAN'#39'T BE NESTED.'
      '<@ADDGROUP>'
      '1'
      't New member'
      '1'
      '@ADDGROUP #1#'

        'Apprises the subsequent string expression and adds it to the gro' +
        'up, avoiding duplications.'
      '<@CLEARGROUP>'
      '0'
      '1'
      '@CLEARGROUP'
      'Cancels all present group members.'
      '<@EDITGROUP>'
      '0'
      '1'
      '@EDITGROUP'

        'Use this to interactively edit the members of your group (same a' +
        's CTRL-E).'
      '<@REMGROUP>'
      '1'
      't Old member'
      '1'
      '@REMGROUP #1#'

        'Apprises the subsequent string expression and removes it from th' +
        'e group.'
      '<@FWRITE>'
      '2'
      't File name'
      't Text'
      '1'
      '@FWRITE #1#'
      'Writes text at the end of file.'

        'ATTENTION : @FWRITE doesn'#39't automatically insert an end of line.' +
        ' You have to add #13 to do so.'
      '<@LOG>'
      '1'
      't New log name'
      '1'
      '@LOG #1#'

        'Changes the name of LOG FILE and attempts to open it immediately' +
        '. If an error occurs, ELF will go back to the former name and, i' +
        'f in case, attempts to reopen it.'
      '<@NEWLINE>'
      '1'
      't Text'
      '1'
      '@NEWLINE #1#'

        'Changes the content of the line on which triggers are being chec' +
        'ked.'

        'After executing @NEWLINE "text", subsequent triggers will be che' +
        'cked on the new text.'
      '<@NLOCAL>'
      '0'
      '1'
      '@NLOCAL var1,...,varN'

        '@NLOCAL var1,var2,...,@varN  creates @VAR1, @VAR2, up to @VARN a' +
        's LOCAL NUMERIC variables. Such variables substitute for the exi' +
        'sting ones by the same name and may act like any other variable.'

        'LOCAL variables exist for the entire execution of the series of ' +
        'linked commands.'

        'Should a @CALL be executed or an alias be called, local variable' +
        's would survive in such sub-programs (where other local variable' +
        's may be defined, even by the same name).'
      '<@SEND>'
      '1'
      't Text'
      '1'
      '@SEND #1#'

        'Evaluates the subsequent string expression and sends it to the M' +
        'UD, translating special characters ("ATZ#13" is translated to "A' +
        'TZ" followed by char whose ASCII code is 13).'

        'NOTE : after the string, CR is NOT automatically appended. If de' +
        'sired, it must be specified, ending the string by '#39'#13'#39'.'
      '<@SLOCAL>'
      '0'
      '1'
      '@SLOCAL var1,...,varN'

        '@SLOCAL var1,var2,...,@varN  creates @VAR1, @VAR2, up to @VARN a' +
        's LOCAL STRING variables. Such variables substitute for the exis' +
        'ting ones by the same name and may act like any other variable.'

        'LOCAL variables exist for the entire execution of the series of ' +
        'linked commands.'

        'Should a @CALL be executed or an alias be called, local variable' +
        's would survive in such sub-programs (where other local variable' +
        's may be defined, even by the same name).'
      '<@BEEP>'
      '1'
      't Sound file'
      '1'
      '@BEEP #1#'
      'Plays <soundfile>, where <soundfile> can be .MID or .WAV.'
      '<@OUTMSG>'
      '1'
      't Text'
      '1'
      '@OUTMSG #1#'

        'Apprises the string subsequent expression and outputs it to the ' +
        'screen'#39's bottom line (the copyright one).'
      '<@OUTSTR>'
      '1'
      't Text'
      '1'
      '@OUTSTR #1#'

        'Apprises the subsequent string expression and outputs it to the ' +
        'screen. The string may contain special codes, specified by the s' +
        'ymbol '#39'#'#39' and the corresponding ASCII code.'
      '<@TOCLIP>'
      '1'
      't Text'
      '1'
      '@TOCLIP #1#'
      'Puts <text> in the CLIPBOARD.'
      '<@WADD>'
      '2'
      'n Id'
      't Text'
      '1'
      '@WADD #1#'

        'Writes <text> in user window <id> on the line beyond the last on' +
        'e.'
      '<@WCLEAR>'
      '1'
      'n Id'
      '1'
      '@WCLEAR #1#'
      'Clears user window <id>.'
      '<@WCLOSE>'
      '1'
      'n Id'
      '1'
      '@WCLOSE #1#'
      'Clears user window <id>.'
      '<@WHIDE>'
      '1'
      'n Id'
      '1'
      '@WHIDE #1#'
      'Hides user window <id>.'
      '<@WPUT>'
      '3'
      'n Id'
      'n Line #'
      't Text'
      '1'
      '@WPUT #1#'

        'Writes <text> in user window <id> on the <line #>. The first lin' +
        'e number is 0.'
      '<@WSHOW>'
      '1'
      'n Id'
      '1'
      '@WSHOW #1#'
      'Shows (unhides) user window <id>.'
      '<@@@>')
    TabOrder = 1
    Visible = False
    WordWrap = False
  end
  object Edit1: TEdit
    Left = 240
    Top = 168
    Width = 249
    Height = 21
    TabOrder = 2
    Visible = False
    OnChange = Edit1Change
  end
  object Edit2: TEdit
    Left = 240
    Top = 192
    Width = 249
    Height = 21
    TabOrder = 3
    Visible = False
    OnChange = Edit1Change
  end
  object Edit3: TEdit
    Left = 240
    Top = 216
    Width = 249
    Height = 21
    TabOrder = 4
    Visible = False
    OnChange = Edit1Change
  end
  object Memo2: TMemo
    Left = 168
    Top = 8
    Width = 321
    Height = 153
    BorderStyle = bsNone
    Color = clBtnFace
    Ctl3D = True
    Lines.Strings = (
      'Select a command from the list.'
      'The necessary parameters will be shown.'
      'Enter them and then press OK.'
      ''
      'That'#39's all :-)')
    ParentCtl3D = False
    ReadOnly = True
    TabOrder = 5
  end
  object BitBtn1: TBitBtn
    Left = 392
    Top = 256
    Width = 75
    Height = 25
    TabOrder = 6
    Kind = bkCancel
  end
  object ok: TBitBtn
    Left = 308
    Top = 256
    Width = 75
    Height = 25
    Enabled = False
    TabOrder = 7
    OnClick = okClick
    Kind = bkOK
  end
end